Developer CD Series 1996 April: System Software/Apple_Developer_Group_April_1996_System_Software.iso/What's New?/Sample Code/Snippets Update 1/PopUpMenuSelectWithCurFont/PopUpMenuSelectWithCurFont.c

Text File | 1996-02-01 | 4.5 KB | 197 lines | [TEXT/CWIE]

    //
    //    PopUpMenuSelectWithCurFont demonstrates which low memory globals
    //    (and possibly even nastier things) one must twiddle in order to
    //    control the font used by MDEF 0 during PopUpMenuSelect. Note that
    //    aside from the compatibility code associated with HOSTED_BY_FONT_MISCREANT,
    //    this code roughly parallels what the popup menu CDEF (ID 63) does.
    //    If at all possible you should make use of the CDEF, because when
    //    Engineering breaks the low memory trick, we can fix the CDEF, but
    //    we can't fix your code.
    //
    //    Complaints and kudos to:
    //
    //        Pete Gontier
    //        Apple Macintosh Developer Technical Support
    //        <[e-mail]>
    //

#define OLDROUTINELOCATIONS        0
#define OLDROUTINENAMES            0
#define SystemSevenOrLater        1

#ifndef __FONTS__
#    include <Fonts.h>
#endif

#ifndef __DIALOGS__
#    include <Dialogs.h>
#endif

#ifndef __RESOURCES__
#    include <Resources.h>
#endif

#ifndef __LOWMEM__
#    include <LowMem.h>
#endif

    //
    //    HOSTED_BY_FONT_MISCREANT
    //
    //    If you are writing an external code resource (filter,
    //    XCMD, etc.), and this code isn't giving you any joy,
    //    let HOSTED_BY_FONT_MISCREANT be 1 and see if that helps.
    //    Some extension hosts set up a hostile font environment.
    //    Your lack of joy is their fault, and they force you
    //    to assume even more compatibility risk than you would
    //    by using this code without HOSTED_BY_FONT_MISCREANT
    //    defined. On the other hand, we *are* weaving a tangled
    //    web by twiddling low memory, and sometimes one must pay
    //    the price for this sort of behavior.
    //

#define HOSTED_BY_FONT_MISCREANT 0

#if HOSTED_BY_FONT_MISCREANT

static pascal GrafPtr GetSomeWindowManagerPort (void)
{
    //
    //    Produces a pointer to the Window Manager port or
    //    Color Window Manager Port. You can test the returned
    //    GrafPtr to see whether it's colored or not, but
    //    many callers won't care.
    //

    GrafPtr result = nil;

    SysEnvRec theWorld;

    //
    //    Yes, SysEnvirons is deprecated. But it still works,
    //    and it's a cheap way to buy backward compatibility
    //    if you only need to know whether CQD support exists.
    //

    if (SysEnvirons (1, &theWorld))
        DebugStr ("\pWhoa! Panic! SysEnvirons failed?!");
    else if (theWorld.hasColorQD)
        GetCWMgrPort ((CGrafPtr *) &result);
    else
        GetWMgrPort (&result);

    return result;
}

#endif

static pascal void PopUpMenuSelectWithCurFont
    (MenuRef popUpMenuRef, Point where, unsigned short prevSelection)
{
    GrafPtr hostPort;

    short oldSysFont = LMGetSysFontFam ( );
    short oldSysSize = LMGetSysFontSize ( );

    GetPort (&hostPort);

    LMSetSysFontFam (hostPort->txFont);
    LMSetSysFontSize (hostPort->txSize);
    LMSetLastSPExtra (-1);

#if HOSTED_BY_FONT_MISCREANT
    SetPort (GetSomeWindowManagerPort ( ));
    TextFont (0);
    TextSize (0);
    SetPort (hostPort);
#endif

    InsertMenu (popUpMenuRef,hierMenu);
    PopUpMenuSelect (popUpMenuRef, where.v, where.h, prevSelection);
    DeleteMenu (128);

    LMSetSysFontFam (oldSysFont);
    LMSetSysFontSize (oldSysSize);
    LMSetLastSPExtra (-1);
}

//////////////////////////////////////////////////////////////////////
//
//    Below please find the usual sort of application boilerplate.
//
//////////////////////////////////////////////////////////////////////

static pascal OSErr InitMac (void)
{
    MaxApplZone ( );
    InitGraf (&(qd.thePort));
    InitFonts ( );
    InitWindows ( );
    InitMenus ( );
    TEInit ( );
    InitDialogs (nil);

    return noErr;
}

static pascal Boolean ModalFilterProc (DialogPtr theDialog, EventRecord *theEvent, short *)
{
    Boolean result = false;

    if (theEvent->what == mouseDown)
    {
        Point localWhere = theEvent->where;
        GrafPtr savePort;

        GetPort (&savePort);
        SetPort (theDialog);
        GlobalToLocal (&localWhere);

        if (FindDialogItem (theDialog, localWhere) == 1)
        {
            MenuRef popUpMenuRef = GetMenu (128);
            if (popUpMenuRef)
            {
                short txFont = theDialog->txFont;
                short txSize = theDialog->txSize;
                short iType; Handle iHandle; Rect iRect;
                Point popWhere;

                GetDialogItem (theDialog,2,&iType,&iHandle,&iRect);

                popWhere.v = iRect.bottom;
                popWhere.h = iRect.left + 2;
                LocalToGlobal (&popWhere);

                InvertRect (&iRect);
                    TextFont (geneva);
                        TextSize (9);
                            PopUpMenuSelectWithCurFont (popUpMenuRef,popWhere,0);
                        TextSize (txSize);
                    TextFont (txFont);
                InvertRect (&iRect);

                ReleaseResource ((Handle) popUpMenuRef);
            }
        }

        SetPort (savePort);
    }

    return result;
}

void main (void)
{
    if (!InitMac ( ))
    {
        DialogRef dlgRef = GetNewDialog (128,nil,nil);
        if (dlgRef)
        {
            short itemHit;
            ModalDialog (ModalFilterProc,&itemHit);
            DisposeDialog (dlgRef);
        }
    }
}